home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo 39 / Micro_Dingo_39_CD1.mdx / Delires / Hentai / sim.swf / scripts / DefineButton2_866 / BUTTONCONDACTION on(release).as
Text File  |  2002-05-21  |  811b  |  46 lines
  1. on(release){
  2.    stopAllSounds();
  3.    if(state == 4)
  4.    {
  5.       if(money >= 5000 and 95 >= day)
  6.       {
  7.          money -= 5000;
  8.          day += 5;
  9.          count = 0;
  10.          countt = 0;
  11.          counttt = 0;
  12.          countttt = 0;
  13.          luck = random(20);
  14.          if(8 >= luck)
  15.          {
  16.             mood = 100;
  17.             cond = 2;
  18.          }
  19.          else if(10 >= luck)
  20.          {
  21.             mood = 20;
  22.             cond = 0;
  23.          }
  24.          else if(12 >= luck)
  25.          {
  26.             mood = 100;
  27.             cond = 1;
  28.          }
  29.          else
  30.          {
  31.             mood = 100;
  32.             cond = 0;
  33.          }
  34.          gotoAndStop(3025);
  35.       }
  36.       else
  37.       {
  38.          gotoAndStop(1319);
  39.       }
  40.    }
  41.    else
  42.    {
  43.       gotoAndStop(1318);
  44.    }
  45. }
  46.